home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cenvid / wrldfrct.cmm < prev    next >
Text File  |  1994-08-02  |  257b  |  8 lines
  1. // The World is Just a Huge Fractal
  2. //  author: Jari Karjala
  3.  
  4. for(o=0.075,h=1.5,T=r=O=l=I=0.0,_=0,L=80,s=3200;s%L||(h-=o,T=
  5. -2),s;4-(r=O*O)<(l=I*I)|++_==L&&fwrite((--s%L?_<L?--_%6:6:7)+
  6. "World! \n",1,stdout)&&(O=I=l=_=r=0,T+=o/2))O=I*2*O+h,I=l+T-r
  7.  
  8.